home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / cppsum.zip / CPPSUMW.TXT < prev    next >
Text File  |  1994-06-18  |  2KB  |  51 lines
  1. '---------------------------------------------------------------------------
  2. ' WordBasic interface definitions for CPPSUM.DLL
  3. ' DLL functions to get summary info from OLE 2.0 document files.
  4. '
  5. '     Copyright ⌐ 1994 Somar Software, All Rights Reserved
  6. '     Send problem reports and comments to 72202.2574@compuserve.com
  7. '
  8. ' Example of usage:
  9. '     PID_TITLE = 2
  10. '     wInitStatus = SumInfoInit
  11. '     If wInitStatus <> 0 Then
  12. '        hSumInfo = SumInfoOpenFile(".. put your file name here ..")
  13. '        If hSumInfo <> 0 Then    
  14. '        s$ = String$(256, "*")
  15. '              nResult = SumInfoGetString(hSumInfo, PID_TITLE, s$, 256)
  16. '           SumInfoCloseFile(hSumInfo)
  17. '        End If
  18. '           SumInfoUninit(wInitStatus)
  19. '     EndIf
  20. '
  21. ' Reasons for failure:
  22. '     SumInfoInit:     out of memory
  23. '     SumInfoOpenFile: out of memory
  24. '                      file not found
  25. '                      file is not an OLE 2.0 structured storage file
  26. '                      file does not contain OLE 2.0 summary info
  27. '                      OLE 2.0 summary info is incorrectly formatted
  28. '     SumInfoGet...  : specified property type is not available
  29. '     
  30. ' See CPPSUM.H for change log
  31. '---------------------------------------------------------------------------
  32. PID_TITLE          = 2
  33. PID_SUBJECT        = 3
  34. PID_AUTHOR         = 4
  35. PID_KEYWORDS       = 5
  36. PID_COMMENTS       = 6
  37. PID_TEMPLATE       = 7
  38. PID_LASTAUTHOR     = 8
  39. PID_REVNUMBER      = 9
  40. PID_APPNAME        = 18
  41.  
  42. Declare Function SumInfoInit Lib "CPPSUM.DLL"() As Integer
  43. Declare Function SumInfoOpenFile Lib "CPPSUM.DLL" \
  44.     (szPath As String) As Integer
  45. Declare Function SumInfoGetString Lib "CPPSUM.DLL" \
  46.     (hSumInfo As Integer, pid As Long, \
  47.      lpBuf As String,  cbBuf As Integer) As Integer
  48. Declare Sub SumInfoCloseFile Lib "CPPSUM.DLL"(hSumInfo As Integer)
  49. Declare Sub SumInfoUninit Lib "CPPSUM.DLL"(wInitStatus As Integer)
  50.  
  51.